home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Diamond Collection
/
The Diamond Collection (Software Vault)(Digital Impact).ISO
/
cdr34
/
archdr20.zip
/
TOARC.DOP
< prev
Wrap
Text File
|
1994-12-31
|
361b
|
20 lines
/* Change DirectoryOpus directory from directory on Archives:
** to original directory. */
options results
status 13 "-1"
dir=result
getnextselected "-1"
file=result
if file~=0 then dir=dir || result
dir=strip(dir,'B','"')
i=index(dir,':')
if i~=0 then
do
dir="Archives:" || left(dir,i-1) || '/' || substr(dir,i+1)
ScanDir '"' || dir || '"'
end